home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / other / littelcomp / r5 / lc / examples / exceptions.l < prev    next >
Text File  |  2000-02-28  |  290b  |  19 lines
  1. ;
  2.  
  3. PROC main
  4.    copy d0 d1
  5.    cdpr nisse
  6.    copy 10 d0
  7. EXCEPT
  8.    copy _exception d0 ;return exception to cli
  9.    rthrw
  10. ENDPROC
  11.  
  12. PROC nisse              ;RAISE  just to know it can raise things..
  13.    raise 16 17 d0 = d0
  14. ENDPROC                 ; we just leave nisse with exception set
  15.  
  16. END
  17.  
  18.  
  19.